(fset 'edebug-form #[nil "┬┬┼ ê╞ ê╟ ë╚=½ç╔ ╩ \"¬£╦=½ò╠ ë═>¼èº¼å╔ \"¬à¬é╠ +ç" [edebug-offset-index index nil form class edebug-skip-whitespace edebug-increment-offset edebug-next-token-class lparen edebug-make-edebug-form edebug-list-form symbol edebug-read-sexp (nil t)] 4 "\
Return the debug form for the following form. Add the point offset
to the edebug-offset-list for the function and move point to
immediately after the form."])
(fset 'edebug-list-form #[nil "└ë├uê─ ë┼=½à╞ ¬ù\n╟=½à╚ ¬ì\n╔=½ä└¬ä╩╦!ê ¡░ ë9½¿ ╠Në½É9½à ¬ô╬!¬ì╧ !½å╨!¬é╥ )¬é╥ B─ ╔=½à├uê¬ä╩╙!ê*ç" [nil head class 1 edebug-next-token-class symbol edebug-read-sexp lparen edebug-anonymous-form rparen edebug-syntax-error "Head of list must be a symbol or lambda expression." edebug-form-spec form edebug-interpret-form-spec edebug-macrop edebug-sexp-list edebug-eval-macro-args edebug-forms "Too many arguments."] 4 "\
Return an edebug form built from the list form that follows point.
Insert debug calls as appropriate to the form. Start with point before
the left paren; leave point after the right paren."])
Bounce the point in the outside current buffer." nil])
(fset 'edebug-find-stop-point #[nil "└ ë┬N«ä├─ \"ë@A@AA@è╔╩!½ä╦╠xê`)Z╠╠G╨╨W½ÆHV½êTë¬iW½ÉHX½å B¬ä╤╥ \".ç" [edebug-which-function def-name edebug error "%s must first be evaluated with edebug-defun." edebug-data edebug-func-mark edebug-breakpoints offset-vector looking-at "[ ]" " " nil offset len i 0 message "Point is not on an expression in %s."] 4 "\
Return (function . index) of the nearest edebug stop point."])
(fset 'edebug-next-breakpoint #[nil "└ ë¡° @ A\n─Në@A@AA@╔\n¼à╦╠!¬╤ë½É@@X½êAë¼p½à@¬â@\n\n@H\\bê╦\nAA@½â╬¬ü╧\nA@½ï╨╤╥\nA@!\"¬ü╧P!).)ç" [edebug-find-stop-point edebug-stop-point def-name index edebug edebug-data edebug-func-mark edebug-breakpoints offset-vector nil breakpoint message "No breakpoints in this function." breaks "Temporary " "" format "Condition: %s" edebug-prin1-to-string] 7 "\
Move point to the next breakpoint, or first if none past point." nil])
(fset 'edebug-modify-breakpoint #[(flag &optional condition temporary) "└ ë¡σ @ A\n─Në@A@AA@╔\n₧\n╦\n\"½ò═EB╨\"╤╥\n\"ê¬Å\n½ç╤╙\n\"ê¬ä╤╘!êAABíêH\\b.)ç" [edebug-find-stop-point edebug-stop-point def-name index edebug edebug-data edebug-func-mark edebug-breakpoints offset-vector nil present delq flag edebug-sort-alist condition temporary < message "Breakpoint set in %s." "Breakpoint unset in %s." "No breakpoint here."] 5 "\
Modify the breakpoint for the form at point or after it according
to FLAG: set if t, clear if nil. Then move to that point.
If CONDITION or TEMPORARY are non-nil, add those attributes to
the breakpoint. "])
(fset 'edebug-set-breakpoint #[(arg) "└┴┬#ç" [edebug-modify-breakpoint t nil arg] 4 "\
Set the breakpoint of nearest sexp.
With prefix argument, make it a temporary breakpoint." "P"])
Proceed from the current point to the end of the containing sexp.
If there is no containing sexp that is not the top level defun,
go to the end of the last sexp, or if that is the same point, then step." nil])
(fset 'edebug-step-in #[nil "┴=¼ä┬├!ê─ëè╟ ê╚uê╔p!)╩N╦!½Åè╠!qêbê═ ê)¬è<¼å┬╬\"ê*╧ ç" [edebug-arg-mode enter error "You must be in front of a function or macro call." nil func-marker func edebug-where 1 read edebug markerp marker-buffer edebug-defun "First please eval the def of %s so edebug knows where it is." exit-recursive-edit] 3 "\
Step into the function about to be called.
Do this before the arguments are evaluated since otherwise it will be
too late. One side effect of using edebug-step-in is that the next
time the function is called, edebug will be called there as well." nil])